home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / copycomb / combo.ctl < prev    next >
Encoding:
Text File  |  1998-07-17  |  1.4 KB  |  47 lines
  1. VERSION 5.00
  2. Object = "{02B5E320-7292-11CF-93D5-0020AF99504A}#1.0#0"; "MSCHART.OCX"
  3. Object = "{4A6838E0-0CF9-11D2-9098-006097338A58}#1.0#0"; "CCOM.DLL"
  4. Begin VB.UserControl Combo 
  5.    ClientHeight    =   4470
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   6615
  9.    InvisibleAtRuntime=   -1  'True
  10.    ScaleHeight     =   4470
  11.    ScaleWidth      =   6615
  12.    Begin MSChartLib.MSChart MSChart1 
  13.       Height          =   3735
  14.       Left            =   120
  15.       OleObjectBlob   =   "combo.ctx":0000
  16.       TabIndex        =   0
  17.       Top             =   180
  18.       Width           =   6375
  19.    End
  20.    Begin CCOMLibCtl.CopyCom CopyCom1 
  21.       Left            =   180
  22.       OleObjectBlob   =   "combo.ctx":255C
  23.       Top             =   4080
  24.    End
  25. End
  26. Attribute VB_Name = "Combo"
  27. Attribute VB_GlobalNameSpace = False
  28. Attribute VB_Creatable = True
  29. Attribute VB_PredeclaredId = False
  30. Attribute VB_Exposed = True
  31. Option Explicit
  32.  
  33. Public Sub ComboCopy(FileName As Variant)
  34.    Call CopyCom1.CopyCom(MSChart1.Object, FileName)
  35. End Sub
  36.  
  37. Public Sub ChartData(ChartData() As Variant)
  38.    MSChart1.Plot.SeriesCollection(1).SeriesMarker.Auto = False
  39.    MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Marker.Style = VtMarkerStyleFilledCircle
  40.    MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Marker.Size = 80
  41.    MSChart1.Legend.Location.LocationType = VtChLocationTypeTop
  42.    
  43.    MSChart1.ChartData = ChartData
  44.  
  45. End Sub
  46.  
  47.